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ABSTRACT 


Finnigan  BASIC  programs  have  been  developed  for  the  creation,  compact 
storage  and  output  of  files  containing  mass  spectra  on  a  Finnigan  6115  Data 
system  used  with  Finnigan  3000  and  4000  Series  Gas  Chromatograph/Mass 
Spectrometers.  Entries  can  be  made  directly  from  the  memory  of  the  data 
system  for  spectra  acquired  on  the  specific  instrument  or  from  a  keyboard 
for  spectra  obtained  from  external  compilations.  The  resulting  mass  spectra 
can  be  stored  both  in  Finnigan  BASIC  on  magnetic  tape  permitting  further 
BASIC  operations  and  on  magnetic  disc  in  the  computer  for  standard  mass 
spectral  manipulation  by  the  operating  system. 


resume' 


Des  programmes  BASIC  Finnigan  ont  fete  mis  au  point  pour  crfeer,  mettre 
en  memo ire  et  restituer  des  fichiers  renfermant  des  spectres  de  masse  dans 
un  systfeme  informatique  Finnigan  6115  utilise  avec  des  ensembles  chromat- 
ographe  gazeux/spectromfetre  de  masse  Finnigan,  series  3000  et  4000.  Les 
valeurs  peuvent  etre  introduites  directement  A  partir  de  la  memoire  du 
systfeme  informatique,  dans  le  cas  des  spectres  recueillis  a  l'aide  d'un 
instrument  spfecifique,  ou  au  clavier,  dans  le  cas  des  spectres  etablis 
par  compilation  externe.  Les  spectres  de  masse  alnsi  obtenus  peuvent  etre 
mis  en  memoire  en  BASIC  Finnigan  sur  bande  magnetique  ce  qui  permet  d'autres 
operations  BASIC,  ou  sur  disques  magnetiques  dans  l'ordinateur,  ce  qui 
permet  la  manipulation  ordinaire  des  spectres  de  masse  par  le  systfeme 
d’ exploitation . 
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INTRODUCTION 

The  Cas  Chromatograph/Mass  Spectrometer/Data  System  (GC/MS/DS)  can  be 
a  very  powerful  analytical  tool  in  the  rapid,  positive  identification  of 
unknown  compounds  in  complex  mixtures.  Liquid  sample  mixtures  whether  from 
laboratory  reactions  or  extracted  from  vegetation,  soil,  water  or  air  can 
be  injected  into  the  GC  for  separation  and  analysed  quickly  by  the  MS. 
Although  it  is  possible  for  an  experienced  mass  spectroscopist  to  examine  a 
specific  mass  spectrum  and  deduce  the  structure  of  an  unknown  compound  in 
the  sample,  time  constraints  require  that  more  rapid  identification  be 
carried  out.  The  key  to  rapid  accurate  identification  lies  in  the  use  of 
an  integrated  data  system  containing  a  library  search  algorithm  and  an 
extensive  collection  of  standard  mass  spectra  or  edited  repre¬ 
sentations.  In  use,  the  search  algorithm  package  compares  a  representation 
of  the  mass  spectrum  of  the  unknown  compound  with  mass  spectra  contained  in 
the  library  and  lists,  in  descending  order  of  "goodness  of  fit",  several 
retrieved  compounds  whose  mass  spectra  most  closely  resemble  that  of  the 
unknown.  Obviously,  the  greater  the  number  of  different  types  of  compounds 
represented  in  the  library,  the  greater  is  the  accuracy  of  the  Identification 
of  the  unknown  or,  at  least,  the  family  of  compounds  to  which  the  unknown 
belongs.  The  commercial  libraries  contain  limited  numbers  of  spectra  of 
common  chemicals  but  many  permit  the  addition  of  new  entries.  Consequently, 
after  acquisition  of  a  GC/MS/DS  system  incorporating  a  search  algorithm, 
one  of  the  initial  requirements  in  the  preparation  of  the  system  for  use 
as  a  rapid  analytical  identification  tool  for  specific  classes  of  compounds 
is  to  have  available  related  mass  spectra,  either  by  recording  the  spectra 
on  the  specific  GC/MS  or  by  manually  entering  them  from  other  sources 
(reports, compilations  etc.). 

In  some  library  search  programs,  the  mass  spectrum  is  abbreviated  or 
edited  before  it  can  either  be  compared  to  the  library  entries  or  be  added 
as  a  library  entry.  In  these  systems,  then,  although  a  given  library  entry 
can  be  subsequently  recalled  and  listed,  a  significant  amount  of  information 
has  been  lost  during  the  editing  process.  Occasions  may  arise  in  which  ready 
display  or  output  of  the  complete  mass  spectrum  of  the  library  compound  is 
desirable  to  permit  critical  assessments  to  be  made  as  to  the  accuracy  of 
a  given  identification.  Furthermore,  new  searching  programs  are  becoming 
available  which  incorporate  highly  sophisticated  searching  algorithms 
requiring  more  complete  mass  spectra  to  be  stored  as  library  entries. 
Introduction  of  such  a  system  would  normally  require  re-entry  of  large 
numbers  of  complete  mass  spectra  for  editing  according  to  the  specific  code 
of  the  searching  algorithm. 

A  separate  and  compact  storage  of  relevant  mass  spectra  is  desirable 
to  permit  rapid  incorporation  into  new  searching  systems  and  specific 
recall  and  display  of  complete  mass  spectra.  In  order  that  these  require¬ 
ments  be  met,  several  BASIC  (1)  programs  have  been  developed  to  permit 
files  of  mass  spectra,  whether  from  a  Finnigan  GC/MS/DS  or  from  outside 
sources,  to  be  entered  and  stored  for  later  display  and/or  incorporation 
into  new  library  search  algorithms  as  they  become  available.  The  programs, 
written  in  Finnigan  BASIC,  can  be  used  on  any  Finnigan  GC/MS  employing  a 
6115  Data  system. 
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PROGRAM  DESCRIPTIONS  AND  OPERATIONS 

PROGRAM  SPECFL 

This  program  is  designed  to  build  a  compact  computer  file  of  mass 
spectra  from  either  the  GC/MS/DS  or  from  outside  compilations.  The  program 
consists  of  a  main  body  (statements  2-240,  9995-9999)  which  permits  the 
user  to  select  various  operations,  a  number  of  subprograms  (statements 
1000-6220)  which  can  be  called  upon  by  the  main  program  to  perform  the 
individual  operations  and  a  DATA  area  (statements  7001-9994)  in  which  titles 
of  the  individual  entries  are  stored.  Some  of  the  subprograms  also  present 
the  user  with  further  options  or  request  additional  information  during 
execution. 

Basically,  an  entry  in  the  file  consists  of  two  parts;  the  title  and 
the  mass  spectral  listing.  The  title  contains  the  molecular  weight,  the 
base  peak,  a  formula  code,  a  name  of  36  letters  and  four  spaces  for  a  code 
or  abbreviated  name.  In  the  example  below,  the  molecular  weight  is  198; 
the  base  peak,  119;  number  of  carbons,  04;  hydrogens,  12;  bromine,  1; 
chlorine,  0;  fluorine,  0;  iodine,  0;  nitrogen,  2;  oxygen,  0;  phosphorous, 

1;  sulfur,  0;  and  other,  0. 

198  119  .4121... 2.1.. BIS (DIMETHYLAMINO)  BROMOPHOSPHINE 

The  title  is  stored  as  an  integral  part  of  the  program  in  the  form  of 
a  DATA  statement  beginning  with  entry  #1  at  statement  7001.  By  storing  the 
titles  as  part  of  the  program,  storage  of  mass  spectral  data  is  confined  to 
one  additional  data  tape.  Furthermore,  by  storing  the  title  Information  in 
this  manner,  the  status  search  of  the  files  (entry  numbers  of  filled  entries 
for  the  next  addition,  or  for  compounds  of  a  selected  molecular  weight  and/ 
or  base  peak)  is  rapidly  executed  without  further  tape  or  disc  manipulation. 

A  deletion  is  made  by  simply  rewriting  the  particular  DATA  statement  as  one 
having  a  blank  field.  Essentially,  then,  a  title  addition  or  deletion  is 
the  rewriting  of  a  statement  of  the  program  during  execution.  The  end  of 
the  DATA  section  (statement  9994)  is  indicated  by  an  entry  whose  molecular 
weight  is  "000". 

The  mass  spectral  listing  is  stored  on  magnetic  tape  in  Finnlgan  BASIC 
DATA  format  as  a  one-dimensional  array  of  ion  abundances  of  m/e  of  0  to  1000. 
The  absolute  abundances  of  m/e  of  0-11  and  1000  are  reserved  for  storage  of 
other  pertinent  information,  e.g.  m/e  of  0  is  the  entry  number,  m/e  of  1  is 
the  molecular  weight,  m/e  of  2  is  the  base  peak,  m/e  of  3  is  an  Indicator  as 
to  whether  the  spectrum  is  electron  impact  (EIMS)  or  chemical  ionization 
(CIMS)  and  m/e  of  4  is  the  highest  non-zero  m/e.  These  values  are  included 
to  permit  subsequent  sorting  or  searching  by  other  BASIC  programs  should  the 
need  arise.  Other  information  could  readily  be  added  in  m/e  (5)  -  m/e  (11) 
and  m/e  (1000)  by  slight  modification  to  the  program  if  desired. 

A  typical  operation  of  the  program  such  as  the  addition  of  a  mass 
spectrum  involves  the  transfer  of  a  selected  number  of  consecutive  preceeding 
existing  mass  spectra  from  tape  to  disc  (usually  only  the  preceeding  mass 
spectrum  to  minimize  tape-to-disc  transfers),  the  spectrum  entry  from 
computer  memory  (if  the  spectrum  has  been  recorded  on  the  GC/MS)  or  type¬ 
writer  (from  outside  compilation),  and  the  transfer  of  succeeding  mass  spectra 
from  tape  to  disc  if  the  addition  is  an  insertion  into  a  file  rather  than  an 
addition  to  the  end  of  one.  The  spectra  stored  on  disc  are  not  in  BASIC  but 
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the  language  of  the  operating  system  (designated  herein  as  FOS)  and,  as  such, 
can  be  manipulated,  plotted  out,  listed,  etc.  in  the  same  manner  as  an 
internally  generated  file.  A  single  disc  file  can  store  up  to  1000  mass 
spectra  or  scans.  During  the  file  development  phase,  blocks  of  100  or  less 
spectra  are  constructed  due  to  a  100-file-name  limitation  on  a  BASIC  tape. 
Spectra  added  to  the  end  of  a  disc  file  during  program  execution  may  be 
easily  added  to  existing  spectra  on  the  BASIC  tape  (up  to  100  entries)  by 
use  of  DTFDFN.  Successive  disc  files  of  100  can  be  united  into  larger  disc 
collections  of  up  to  1000  entries  by  use  of  DISCFL.  Once  a  file  of  1000 
spectra  (or  less)  has  been  built  up,  the  file  may  be  more  compactly  stored 
on  tape  in  FOS  permitting  a  significantly  more  rapid  tape-to-disc  transfer 
than  is  possible  in  Finnigan  BASIC.  The  program  is  capable  of  holding  nearly 
3000  titles  (subject  to  overall  computer  memory  availability)  and  thus  can 
be  used  in  conjunction  with  development  of  three  successive  disc  files  before 
another  separate  copy  of  the  program  is  necessary.  A  brief  description  of 
the  program  operation  and  required  input  follows;  a  detailed  flow  chart, 
variable  index  and  glossary  and  program  listing  are  given  in  Appendix  I. 

The  program  can  be  broken  into  several  subsections : 

MAIN  BODY  (Statements  2-240,  9995-9999) 

The  object  of  the  main  body  is  to  present  the  various  options  to  the 
user  and  to  call  upon  the  appropriate  subprograms  to  execute  the  options  as 
selected.  The  following  are  the  main  steps  for  the  use  of  the  main  body: 

1.  The  program  is  transferred  from  BASIC  program  tape  to  memory  and  RUN 
is  entered. 

2.  During  execution,  the  program  will  stop  at  statement  14  to  permit 
alteration  of  statements  15-79.  Statement  15  is  the  name  of  the 
FOS  disc  file  (6  characters  maximum)  into  which  the  spectra  are 

to  be  read  and  statements  16-79  contain  names  of  each  mass  spectrum 
as  it  is  stored  on  BASIC  data  tape  (in  this  case,  the  names  are 
numbers  corresponding  in  order  to  the  titles  and  to  the  entries 
for  the  absolute  abundance  of  m/e  of  0  in  each  spectrum  to 
facilitate  rapid  identification  and  cross-referencing). 

3.  The  user  indicates  which  BASIC  data  tape  is  being  modified  i.e. 
spectra  1-100,  100-200,  etc. 

4.  The  user  indicates  the  entry  number  of  the  first  mass  spectrum  to 
be  transferred  from  BASIC  data  tape  to  FOS  disc  (usually  only  one 
or  two  before  entry  to  be  added) . 

5.  The  user  Indicates  if  an  upper  limit  on  the  number  of  spectra  to 
be  transferred  is  necessary  and,  if  so,  the  number  of  the  last 
entry  to  be  transferred  from  tape  to  disc.  This  is  necessary 
when  alterations  (deletions  or  additions  to  previously-deleted 
entries)  are  made  to  otherwise-filled  tapes.  Without  this 
limitation,  the  program  would  attempt  to  transfer  spectra  with 
entry  numbers  greater  than  those  contained  on  the  specific  tape. 

It  should  be  noted  that  in  the  case  of  deletions  or  readditions 
to  a  data  tape  all  spectra  must  also  be  transferred  and  the 
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tape  erased  to  facilitate  consecutive  repacking  of  the  tape 
using  DTRDFN . 

6.  The  first  option  is  a  listing  of  the  file  status  based  on  a 
search  of  all  the  title  statements.  The  last  filled  location 
and  the  first  blank  location  are  identified  by  entry  number 
(the  entire  file  is  tight-packed  so  that  any  new  entry  is 
located  in  the  first  available  blank  space  be  it  the  result 
of  a  deleted  entry  or  alternatively  at  the  end  of  the  filled 
entries).  This  operation  is  carried  out  internally  for  most 
other  options  but  output  and  other  sub-options  in  subprogram 

1  (SPI)  are  not  provided  if  the  option  has  not  been  specifically 
selected  by  the  user. 

7.  The  second  option  is  the  addition  of  mass  spectra  with  associated 
titles.  If  the  entry  is  made  at  the  end  of  a  file,  l.e.  there 
are  no  empty  spaces  due  to  deletions,  subsequent  consecutive 
entries  are  permitted  in  subprogram  2  (SP2)  without  re-execution 
of  the  entire  program.  If  this  option  is  chosen,  the  following 
option  is  not  available. 

8.  The  third  option  is  the  deletion  by  subprogram  3  (SP3)  of  a 
single  mass  spectrum  with  its  associated  title  from  anywhere 
within  the  filled  locations  of  the  100-entry  mass  spectral 
tape  file  currently  under  development. 

9.  The  fourth  option  is  the  output  of  spectral  files.  Titles 
and/or  mass  spectral  listings  of  entries  are  printed  out  by 
subprogram  A  (SPA) .  Selections  for  mass  spectral  listings 
are  limited  to  the  100-entry  tape  file  currently  under 
development  but  any  title  can  be  printed  from  the  entire 
collection. 

10.  The  program  is  rewritten  on  -BASIC  program  tape  under  a  new 
name  to  save  any  title  changes.  A  single  data  file  remains 
on  disc  in  FOS  containing  the  transferred  preceeding  spectra, 
the  added  (or,  in  the  case  of  a  deletion,  a  zeroed)  spectrum 
and  all  filled  succeeding  entries  of  the  file  under  develop¬ 
ment  subject  to  initially  specified  limitations.  Selected 
consecutive  spectra  of  a  FOS  file  containing  added  spectra  can  be 
added  to  the  end  of  the  BASIC  tape  under  development  by  using 
DTRDFN. 


SUBPROGRAM  1  (SPI,  1000-15A0) 

This  option  presents  the  current  status  of  the  entire  file  by 
examining  the  titles  in  the  DATA  statements.  The  main  features  are  as 
follows : 
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1.  The  program  calls  upon  subprogram  5  (SP5)  to  determine  which  title 
spaces  are  empty  and  where  the  last  filled  entry  has  been  made. 

The  results  of  the  search  are  printed  out. 

2.  The  user  may  further  call  for  a  list  of  the  entry  numbers  of  those 
compounds  with  a  specific  molecular  weight  (MW)  and/or  mass  spectral 
base  peak  (BP) .  The  choice  of  MW  or  BP  is  entered  as  a  3-digit 
number  (including  a  leading  0  if  the  number  is  less  than  100) 
contained  between  quotes,  e.g.  "042". 

3.  Additional  choices  for  other  MW  or  BP  searches  can  be  made  after 
which  control  is  returned  to  the  main  body  of  the  program. 


SUBPROGRAM  2  (SP2,  Statements  2000-2590) 

This  option  adds  mass  spectra  to  the  file.  The  main  features  follow: 

1.  If  the  previous  option  has  not  been  exercised,  SP2  calls  upon  SP5 
to  determine  which  title  spaces  are  filled  and  which  are  empty. 

The  entry  number  for  the  current  addition,  internally-determined 
for  maintenance  of  tight-packed  file  structure,  is  then  printed 
out. 

2.  The  user  indicates  whether  the  new  spectrum  is  resident  in  FOS 
memory  or  is  to  be  entered  by  typewriter. 

3.  Subprogram  7  (SP7)  is  called  upon  to  transfer  the  selected 
preceeding  spectra  up  to  the  designated  entry  number  from 
tape  to  disc.  The  value  of  m/e  of  zero  for  the  mass  spectrum 
to  be  added  is  set  equal  to  the  entry  number. 

4.  The  user  indicates  whether  the  new  entry  is  an  electron  impact 
or  chemical  ionizacion  mass  spectrum  and  this  is  stored  as  the 
abundance  of  m/e  of  3. 

5.  The  user  provides  the  molecular  weight  of  the  compound  which 
is  stored  as  the  abundance  of  m/e  of  1. 

6.  The  spectrum  is  entered.  An  entry  from  FOS  memory  is  automatic 
while  manual  introduction  is  accomplished  by  entering  pairs  of 
numbers  in  which  the  first  is  the  m/e  while  the  second  is  the 
corresponding  abundance,  relative  or  absolute.  Errors  in  input 
can  be  corrected  by  simply  reentering  the  corrected  version  and 
rezeroing  the  abundance  of  an  incorrectly-entered  m/e.  The  end 
of  input  is  signalled  by  entering  9999  for  m/e. 

7.  Subprogram  6  (SF6)  is  called  for  normalization  of  the  mass  spectrum 
to  the  internally-determined  base  peak.  The  m/e  of  the  base  peak 
and  largest  non-zero  m/e  are  printed  out  and  automatically  entered 
as  the  abundance  of  m/e  at  2  and  4  for  future  sorting  or  collating 
programs.  The  spectrum  is  then  added  to  the  disc  file. 
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8.  If  this  addition  is  not  being  made  at  the  end  of  a  file  but  as 

a  replacement  for  an  earlier  deletion,  the  corresponding  spectrum 
(currently  stored  as  a  series  of  zeros)  is  read  from  the  tape 
to  maintain  proper  spectrum  sequencing.  SP7  is  then  recalled 
to  transfer  the  remaining  spectra  (subject  to  initially  imposed 
limits)  to  the  disc  and  the  disc  file  is  closed.  If,  however,  the 
addition  is  made  to  the  end  of  the  BASIC  tape  files,  additional 
successive  mass  spectra  may  be  manually  added  at  the  user's 
discretion. 

9.  The  corresponding  titles  of  the  mass  spectra  are  entered  by 
adding  the  appropriate  DATA  statements  (#1  entry  corresponds 
to  program  statement  #7001) . 

10.  Three  specified  constants  must  be  reentered  following  completion 
of  title  introduction  to  recommence  program  execution  by  returning 
control  to  the  main  body  of  the  program. 


SUBPROGRAM  3(SP3,  Statements  3000-3300) 

This  option  permits  deletion  of  one  mass  spectrum  from  the  tape  file 
under  development.  It  has  been  restricted  to  a  single  deletion  since  large 
scale  deletions  are  unlikely  to  be  necessary.  Changes  to  the  program  could 
be  readily  Introduced  to  remove  this  limitation  if  required.  The  following 
points  summarize  the  operation  of  SP3: 

1.  The  entry  number  of  the  mass  spectrum  to  be  deleted  is  Introduced. 

2.  SP5  is  called  to  establish  the  location  of  the  last  filled  space 
in  the  file  for  transfer  purposes. 

3.  SP7  is  called  to  transfer  the  selected  preceeding  mass  spectra  up 
to  the  one  designated  for  deletion  from  tape  to  disc. 

4.  The  designated  spectrum  is  read  from  the  tape  to  maintain  proper 
tape  sequence,  all  m/e  abundances  are  zeroed  and  the  zeroed  mass 
spectrum  recorded  on  disc. 

5.  SP7  is  called  to  complete  transfer  of  the  remaining  mass  spectra 
from  tape  to  disc  and  the  disc  file  is  closed. 

6.  The  appropriate  title  is  rewritten  as  a  blank  DATA  statement  (#1 
entry  corresponds  to  program  statement  #7001) . 

7.  Three  specified  constants  must  be  reentered  after  the  title 
change  to  resume  program  execution  by  returning  control  program 
main  body. 
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SUBPROGRAM  4(SP4,  Statements  4000-4340) 

This  option  provides  a  listing  of  one  or  more  consecutive  titles  and/ 
or  mass  spectra.  If  no  mass  spectra  are  desired,  no  transfer  of  data  from 
tape  to  disc  occurs.  If  mass  spectra  are  required,  transfer  is  carried  out 
unless  it  has  already  occurred  due  to  selection  of  either  options  SP2  or  SP3 
The  output  of  a  mass  spectral  listing  is  possible  only  if  it  is  included  in 
the  consecutive  collection  of  spectra  requested  at  the  beginning  of  the 
program  main  body  for  transfer  from  tape  to  disc  and  the  corresponding  BASIC 
data  tape  is  in  use.  The  main  points  of  SP4  are  as  follows: 

1.  The  selection  of  consecutive  entry  numbers  for  output  is  made  by 
introducing  the  first  and  last  number  of  the  range.  If  only  one 
is  required,  the  same  number  is  entered  for  both  limits.  A  choice 
of  whether  the  output  will  be  titles  and/or  mass  spectra  is  also 
indicated . 

2.  If  mass  spectra  are  required,  transfer  from  tape  to  disc  is 
carried  out  unless  either  SP2  or  SP3  has  already  operated. 

3.  If  titles  are  required,  DATA  statements  up  to  but  not  including 
the  first  member  of  the  designated  range  are  read  and  disregarded 
to  maintain  proper  sequence  and  numbering. 

4.  For  each  of  the  entries  in  the  indicated  range,  the  title  is 
read  and  printed  (if  required)  and  the  mass  spectrum  is  read 
from  disc  and  listed  (if  required) . 

5.  Control  is  transferred  back  to  the  main  body  of  the  program. 

SUBPROGRAM  5(SP5,  Statements  5000-5210) 

This  subprogram  searches  through  the  titles  and  compares  each  entry 
with  two  defined  DATA  statements:  the  first  comparison  to  determine  if 
the  end  of  the  list  of  titles  has  been  reached;  the  second  to  determine  if 
the  title  is  blank  signalling  a  previously-deleted  file.  Provision  has 
also  been  made  for  a  warning  if  there  are  no  remaining  blank  files  on  the 
tape  due  to  the  BASIC  computer  limit  of  100  file  names  on  a  single  tape. 

On  completion  of  the  search,  control  is  transferred  back  to  the  main  body. 


SUBPROGRAM  6(SP6,  Statements  6000-6080) 

In  this  subprogram  the  base  peak  and  highest  non-zero  m/e  are 
determined,  stored  as  the  absolute  abundances  of  m/e  of  2  and  4  and  printed 
out.  The  subprogram  finishes  by  normalizing  the  spectrum  and  multiplying 
the  resultant  relative  abundances  by  100  to  permit  adequate  subsequent 
oscilloscope  display  of  minor  peaks  in  the  F0S. 


UNCLASSIFIED 


UNCLASSIFIED 


SUBPROGRAM  7(SP7,  Statements  6100-6220) 

This  subprogram  transfers  mass  spectra  from  BASIC  data  tape  to  FOS 
disc.  The  first  spectrum  or  scan  of  a  disc  file  is  written  as  a  zeroed  mass 
spectrum  to^maintain  the  correct  numbering  correspondence  with  the  titles 
since  the  FOS  has  a  zero  scan  included  for  Internal  manipulations  of  disc 
files.  Other  important  points  to  be  noted  about  SP7  follow: 

1.  The  FOS  disc  file  will  automatically  be  titled  "File  of  Individual 
Spectra".  Other  titles  are  possible  by  alternation  of  statement 
6105. 

2.  Mass  spectral  entries  from  Cl  to  C2  are  read  from  tape  to  disc. 

3.  The  disc  file  is  left  unclosed  so  that  subsequent  files  may  be 
added  by  the  calling  program.  Control  then  is  passed  back  to  the 
calling  program. 


ALTERNATE  USE  OF  SPECFL 

After  a  larger  disc  file  of  up  to  1000  spectra  has  been  developed 
using  DISCFL  and  several  100-spectra  disc  files,  access  to  and  output  of 
spectra  from  the  disc  file  (separate  from  the  manipulations  possible  in  FOS) 
can  be  made  possible  by  modifying  SPECFL.  The  program  then  becomes  one  which 
will  output  file  status  and  titles  from  the  DATA  statements  and/or  mass 
spectra  from  the  disc  file  identified  in  statement  15. 


80  LET  S  -  1 

82  LET  Q3  *  Lumber  of  spectra  on  file 

83  GO  TO  94 
102  GO  TO  190 

4150  DREAD  #1,  I,  N 

and  statements  81,  4130  and  5016  are  deleted. 

A  duplicate  copy  of  the  program  with  the  following  change  accesses  the  second 
disc  file  of  1000  spectra  if  the  appropriate  disc  file  name  is  entered  in 
statement  15. 

4150  DREAD  #1,  I -1000,  N 
and  so  on  for  each  successive  disc  file. 


PROGRAM  DTRDFN 

On  the  completion  of  a  SPECFL  execution,  a  data  file  remains  on  disc 
in  FOS  containing  a  number  of  spectra.  The  contents  of  this  single  file  ia 
FOS  must  be  transferred  back  to  tape  in  the  form  of  Individual  data  files 
in  BASIC,  one  for  each  spectrum,  for  subsequent  file  additions  or  deletions. 
DTRDFN,  of  which  a  listing,  flow  chart,  variable  index  and  glossary  appear 
in  Appendix  II,  carries  out  the  transfer  from  disc  to  tape.  As  indicated 
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earlier,  if  a  deletion  or  a  spectral  replacement  in  a  previously-deleted 
space  has  been  carried  out,  all  spectra  must  be  deleted  from  the  BASIC  data 
tape  before  a  subsequent  disc-to-tape  transfer  of  the  entire  tape  file  of 
spectra  is  attempted  to  avoid  error  messages  due  to  duplicate  file  names  and 
to  maintain  proper  sequencing  of  spectra.  Additions  to  the  end  of  the  tape 
file  are  made  without  alteration  of  other  spectra  on  the  tape.  As  in  SPECFL, 
statement  15  in  DTRDFN  gives  the  name  of  the  disc  file  while  16-79  contain 
names  to  be  assigned  to  the  individual  mass  spectra  as  they  are  written  on 
tape.  With  appropriate  changes  to  statement  16-79,  the  program  can  be  used 
to  fill  several  tapes  with  spectra  numbered  consecutively  from  1  onward.  The 
major  features  of  this  program  follow: 

1.  An  initial  STOP  statement  allows  the  user  to  rewrite  any  of 
statements  15-79  to  accommodate  any  POS  disc  file  and  to  assign 
any  BASIC  tape  file  name  desired. 

2.  The  entry  numbers  of  the  spectra  to  be  transferred  are  entered. 

This  is  followed  by  the  entry  number  of  the  first  spectrum  on  the 
disc  file  to  maintain  correspondence  of  file  numbering  on  the  tape 
with  spectra  being  transferred. 

3.  The  program  indicates  when  the  operation  is  complete. 


PROGRAM  DISCFL 

For  manipulation  by  the  operating  system,  rapidity  of  disc-tape  data 
transfer  and  compact  tape  storage,  the  final  completed  spectral  file  is 
written  in  the  language  of  the  operating  system  (disc  format) .  The  program 
DISCFL  Is  designed  to  transfer  a  number  of  smaller  disc  files  of  100  spectra 
or  less  directly  into  a  single  composite  disc  file  of  up  to  1000  spectra.  A 
listing,  flow  chart,  variable  index  and  glossary  of  the  program  is  given  in 
Appendix  III. 

The  main  points  for  use  of  DISCFL  follow: 

1.  The  file  name  of  the  composite  disc  file  is  written  in  statement  15 
and  the  names  of  the  source  disc  files  are  included  in  statements 
16-19  in  the  order  in  which  the  spectra  are  stored  i.e.  1-100,  101- 
200  etc. 

2.  An  initial  blank  spectrum  is  entered  by  the  program  into  scan  #0 
of  the  composite  disc  file  (see  discussion  in  SP7  in  SPECFL) . 

3.  The  number  of  disc  files  to  be  merged  is  entered.  In  turn,  the 
number  of  spectra  to  be  read  from  each  disc  file  into  the  composite 
file  is  entered  recalling  that  each  new  disc  file  starts  at  spectra 
#1  even  if  spectrum  #101  is  stored  there. 

4.  The  program  indicates  when  the  task  is  completed. 
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PROGRAM  TRANTD 

This  short  program  substitutes  in  place  of  SPECFL  when  only  transfer 
of  mass  spectral  files  from  BASIC  tape  to  FOS  disc  files  Is  desired  with  no 
requirement  for  deletions,  additions,  output  or  file  status  reports.  A 
listing,  flow  chart,  variable  index  and  glossary  of  the  program  are  given 
in  Appendix  IV.  The  main  points  follow: 

1.  As  in  the  other  programs,  the  disc  file  name  is  written  in 
statement  15  with  tape  file  names,  in  order,  in  statements 
16-99. 

2.  The  initial  spectrum  written  on  disc  is  a  blank  as  in  previous 
programs . 

3.  The  entry  numbers  of  the  first  and  last  mass  spectra  to  be 
transferred  are  entered. 

4.  The  program  indicates  when  the  task  is  completed. 


REFERENCES 


1.  Finnigan  BASIC  Reference  Manual,  REV.  I,  Finnigan  Corporation,  1977. 
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VARIABLE 
A(I)  - 

A$(I)  - 

B(I)  ~ 

B$ (I)  - 

D$(I)  - 

E$(I)  - 

M(I)  - 

N(I)  - 

A1 

A2 

A3 


APPENDIX  I 


GLOSSARY  -  SPECFL 


A  one-dimensional  array  for  storage  of  entry  numbers  of  compounds 
having  a  specific  molecular  weight. 

A  one-dimensional  array  for  temporary  storage  of  mass  spectral 
title  information. 

A  one-dimensional  array  for  storage  of  confounds  having  a  specific 
mass  spectral  base  peak. 

A  one-dimensional  array  used  in  searching  for  empty  mass  spectral 
title  files  and  for  storage  of  selected  molecular  weights  and/or 
mass  spectral  base  peaks  during  searches  of  mass  spectral  title 
files. 

A  one-dimensional  array  for  storage  of  overall  title  information  of 
the  disc  file  containing  mass  spectra. 

A  three-character  one-dimensional  array  used  to  indicate  the  end 
of  DATA  statements. 

A  one-dimensional  array  containing  a  mass  spec trim  recorded  by 
the  FOS.  A  spectrum  must  be  stored  in  FOS  memory  and  intention 
to  input  a  mass  spectrum  from  FOS  be  specified  prior  to  loading 
the  BASIC  program. 

A  one-dimensional  array  containing  ion  abundance  for  m/e  of  12-999 
of  a  mass  spectrum  and  other  special  information  in  N(0)  -  N(ll) 
and  N(1000) . 

Selection  indicator  for  listing  of  status  of  title  files  based  on: 

1  -  desired,  2  -  not  desired. 

Selection  indicator  for  addition  of  mass  spectra  to  file  based  on: 

1  -  desired,  2  -  not  desired. 

Selection  indicator  for  deletion  of  a  mass  spectrum  from  file 
based  on:  1  -  desired,  2  -  not  desired. 
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VARIABLE  GLOSSARY  -  SPECFL 


Selection  indicator  for  output  of  mass  spectral  titles  and/or  data 
based  on:  1  -  desired,  2  -  not  desired. 

Selection  indicator  for  placing  an  upper  limit  of  nuraber  of  tape 
files  transferred  based  on:  1  -  limit,  2  -  no  limit. 

Selection  indicator  for  entry  number  of  last  spectrum  to  be 
transferred  from  loaded  tape  to  disc. 

Selection  indicator  for  output  of  titles  of  compounds  with  a 
specific  molecular  weight  based  on:  1  -  desired,  2  -  not  desired. 

Selection  indicator  for  output  of  titles  of  compounds  with  a 
specific  base  peak  based  on:  1  -  desired,  2  -  not  desired. 

Variable  used  for  storage  of  entry  number  of  first  empty  mass 
spectral  title  and  data  space  in  file. 

Variable  used  for  storage  of  nuofcer  of  compounds  with  a  specific 
molecular  weight. 

Variable  used  for  storage  of  number  of  compounds  with  a  specific 
mass  spectral  base  peak. 

Selection  indicator  for  entry  number  of  mass  spectrum  to  be 
deleted  from  the  file. 

Selection  indicator  for  initial  entry  number  of  range  of  entries 
of  mass  spectral  titles  and/or  data  to  be  printed  out. 

Selection  indicator  for  output  of  mass  spectral  titles  based  on: 

1  -  desired,  2  -  not  desired. 

Selection  indicator  for  output  of  mass  spectral  data  based  on: 

1  -  desired,  2  -  not  desired. 

Selection  indicator  for  final  entry  number  of  range  of  entries  of 
mass  spectral  titles  and/or  data  to  be  printed  out. 

Variable  used  for  storage  of  entry  number  of  last-filled  mass 
spectral  title  and  data  space  in  file. 

Variable  used  for  identification  of  initial  data  file  in  a  tape-to- 
disc  transfer. 

Variable  i^Bed  for  identification  of  final  data  file  in  a  tape-to- 
disc  transfer. 

Selection  indicator  for  source  of  mass  spectrum  to  be  added  to  file 
based  on:  1  -  FOS  memory,  2  -  manual  entry. 
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D3  -  Selection  Indicator  for  addition  of  consecutive  mass  spectra  to  the 
file  based  on:  1  -  desired,  2  -  not  desired. 

D4  -  Selection  indicator  for  additional  output  of  mass  spectral  titles/ 
data  based  on:  1  -  desired,  2  -  not  desired. 

G  -  Variable  used  for  storage  of  entry  number  of  first  empty  data 

space  available  on  file  for  addition  of  a  new  mass  spectrum. 

09  -  Variable  used  to  modify  tape  file  number  for  entry  of  mass 

spectrum  to  the  disc  file. 

H  -  Variable  used  for  storage  of  abundance  of  mass  spectral  base  peak. 

K  -  Selection  indicator  for  entry  of  specific  m/e. 

L  -  Selection  indicator  for  entry  of  a  specific  absolute  abundance. 

Ql  -  Variable  used  to  indicate  which  data  tape  is  currently  under 
development . 

Q2  -  Variable  used  for  storage  of  entry  number  of  first  mass  spectrum 
to  be  transferred  from  tape  to  disc. 

Q3  -  .table  used  for  storage  of  maximum  entry  number  of  last  mass 
spectrum  on  tape. 

S  -  Variable  used  as  an  indicator  of  transfer  of  mass  spectral  data 

from  tape-to-disc  based  on:  0  -  no  transfer,  1  -  transfer  has 
already  occurred. 

T  -  Variable  used  for  storage  or  assignment  of  tape  file  names. 

X  -  Selection  indicator  for  printout  of  titles  of  confounds  with  a 

specific  molecular  weight  or  specific  mass  spectral  base  peak 
based  on,  <3  -  output  desired  for  at  least  one  list,  >3  -  neither 
list  required. 

Z  -  Selection  indicator  for  additional  output  of  entry  numbers  for 

compounds  with  a  specific  molecular  weight  and/or  base  peak  based 
on:  1  -  more  required,  2  -  no  further  output  required. 
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VARIABLE  INDEX  -  SPECFL 


Variable 


Statement  No. 


A(I) 
A$  (I) 

B(I) 

B$(I) 

D$(I) 

E$(I) 

M(I) 

N(I) 


A1 

A2 

A3 

A4 

A5 

A6 

AS 

A9 

B 

B1 

B2 

B3 

B5 

B6 

B7 

B8 

C 

Cl 

C2 

D1 

D3 

D4 


10 , 1098 , 1320 , 1440 

10,1270,1290,1340,4080,4103,4110,4115,5025,5030,5050, 

5170.5175.5180 

10,1098,1370,1500 

10 . 1130 . 1210 . 1290 . 1340 . 1410 .1470. 5000 . 5050 .5180 

10 . 2382 . 3245.6105 .6106.6130 
10,5010,5030,5175 
2060,2230 

10,2160,2170,2183,2185,2200,2210,2230,2290,2382,2393, 
3231,3241,3242,3244,3245,4150,4154,4155,4163,4185,4190 
4191 , 6007 , 6009 , 6010 , 6015 , 6020 , 6030,6035 , 6050 , 6060 , 6102 

6103.6106.6127.6130 

96,98,2000 

104,110 

150,160 

200,210 

87,89,2500,3262,4056 

92,2510,3264,4057 

1050,1095,1100, 1280 , 1400 

1080 , 1095 , 1180 , 1330 , 1460 

1006 , 1010 , 2010 , 2025 , 5035 , 5065 , 5140 , 5160 

1170 , 1300 , 1320 , 1410 , 1415 , 1430 

1250,1350,1370,1470,1475,1490 

3010,3075,3220,3250 

4010.4065.4070.4101 
4030,4062,4102 
4050,4051,4120 

4010.4101 

1007 , 1020,1260,2387, 2410 , 2490 , 2586 , 2588 , 3260 , 3293 , 3295 
4055,5040,5066,5150,5190 

2020.2480.3071.3250.4054.6100.6109.6110 

2025.2490.2510.3075.3260.3264.4055.4057.6109.6110 
2110,2215 

2440,2450 

4220,4230 
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VARIABLE  INDEX  -  SPECFL 


Variable 

G 

C9 

H 

K 

L 

Q1 

Q2 

Q3 

S 

T 

X 

Z 


Statement  No. 

2010 , 2050 , 2185 , 2460 ,2480 
4130,4150 

6000,6010,6015,6060 

2285.2287.2290 

2285.2290 

82,2586,2588,3293,3295,5016 

84,2020,2586,2588,3071,3293,3295,4054,4130,6100 

1006 , 1007,5016 , 5020 , 5065,5066 ,5080,5100,5160 

80,2130, 2385 , 2589,3297,4052,4060 

2386,2387,2393,3220,3231,6111,6127 

1095,1096 

1516,1517 
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PROGRAM  LISTING  -  SPECFL 

5  REM  THIS  PROGRAM  CAN  ADD  ENTRIES  TO  OR  LIST  OR  DELETE  ENTRIES  FROM 

6  REM  A  LIBRARY  OF  COMPLETE  MASS  SPECTRA 

10  DIM  N(1001),A(100>,B(100),AS(60),B$(7>,O$(48),E$(3) 

11  PR  I  NT "DAT A  FILES  CONTAINING  SPECTRA  MUST  EXIST  ON  TAPE  UNDER  FILE" 

12  PRINT"NAME  AS  1 ,2,3. .  ;THESE  FILE  NAMES  START  AT  STATE)€NT  16;D!SC" 

13  PRINT"FILE  NAf€  IS  AT  STATEfCNT  I5**T0  START  PROGRAM-' GO  TO  15'" 

14  STOP 

15  FILES  EXTR05 

16  FILES  1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24 

17  FILES  25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45 

18  FILES  46,47,48,49,50,51 ,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66 

19  FILES  67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87 

20  FILES  88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106 

80  LET  S=0 

81  PR  I  NT  "WHICH  TAPE  IS  LOADED?  1-1-100;2»101-200;ETC."; 

82  INPUT  01 

83  PR  I  NT "ENTER  NUMBER  OF  FIRST  SPECTRUM  TO  BE  TRANSFERRED"; 

84  INPUT  02 

85  PR  I  NT  DO  YOU  WISH  AN  UPPER  LIMIT  ON  FILE  TRANSFER71  “YES;  2-N0"; 

87  INPUT  A5 

89  IF  A5  >  1  THEN  94 

90  PRINT"ENTER  NUMBER  OF  LAST  SPECTRUM  TO  BE  TRANSFERRED"; 

92  INPUT  A6 

94  PRINTUO  YOU  WISH  TO  LIST  STATUS  OF  SPECTRAL  FILES?  1-YES;2-N0"; 

96  INPUT  A1 

98  IF  A1  >  1  THEN  102 

100  GO  SUB  1000 

102  PR INT"D0  YOU  WISH  TO  ADD  TO  SPECTRAL  FILES?  1-YES;2-N0"; 

104  INPUT  A2 

110  IF  A2  >  1  THEN  140 

125  GO  SUB  2000 

140  FRINT"DO  YOU  WISH  TO  DELETE  SPECTRAL  FILES?  1  “YES; 2-NO"; 

150  INPUT  A3 

160  IF  A3  >  1  THEN  190 

165  GO  SUB  3000 

190  PR  I  NT  "DO  YOU  WISH  TO  OUTPUT  SPECTRAL  FILES?  1-YES;2-N0"; 

200  INPUT  A4 

210  IF  A4  >  1  THEN  240 

230  GO  SUB  4000 

240  GO  TO  9995 

1000  GO  SUB  5000 

1005  PRINT 

1006  IF  B>  03  THEN  1030 

1007  IF  C=Q3  THEN  1030 

1010  PR  I  NT  "THE  FIRST  EM>TY  DATA  NA*€  SPACE  IS  NUMBER  ";B;"  AND  THE  LAST" 
1020  PRINT"FILLED  ONE  IS  NIWBER  ";C 

1030  PRINT"DO  YOU  WISH  TO  OUTPUT  A  LIST  OF  COfOUNDS  WITH  A  SPECIFIC" 

1040  PR  I  NT  "MOLECULAR  WEIGHT?  1-YES;  2410"; 

1050  INPUT  A8 

1060  PRINT-DO  YOU  WISH  TO  OUTPUT  A  LIST  OF  C(*POUNDS  WITH  A  SPECIFIC" 

1070  PRINT"BASE  PEAK?  1-YES;2«N0"; 

1080  INPUT  A9 

1095  LET  X-A8+A9 

1096  IF  X  >  3  THEN  1540 

1097  FOR  1-1  TO  100  STEP  1 

1098  LET  A(l)-B(l)-0 

1099  NEXT  I 

1100  IF  A8>  1  THEN  1180 

1110  PRINT"INPUT  A  3-OIGIT  (INCLUDING  A  LEADING  0  IF  APPLICABLE)  MW  IN" 
1120  PR  I  NT  "QUOTES  AS  'XXX'"; 

1130  IfPUT  B$ (0,2) 

1170  LET  Bl^l 

1180  IF  A9  >  1  THEN  1260 

1190  PRINT-INPUT  A  3-DIGIT  (INCLUDING  A  LEADING  0  IF  APPLICABLE)  BP  IN- 
1200  PRINT1QU0TES  AS  'XXX'"; 
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1210  INPUT  B$<4,6> 

1250  LET  B2=0 

1260  FOR  1=1  TO  C  STEP  1 

1270  RE/©  A$ 

1280  IF  A8  >  1  THEN  1337 

1290  IF  A$(0, 2)<>  B$<0,2>  THEN  1330 

1300  LET  B1=B1+1 

1320  LET  A (B1  >=1 

1330  IF  A9  >  1  THEN  1380 

1340  IF  A  $  (4, 6)<>  BS(4, 6)  THEN  1380 

1 350  LET  B2=B2+1 

1370  LET  B  <82  )  =  l 

1  380  NEXT  I 

1390  RESTORE 

1400  IF  AS  >  1  THEN  1460 
1405  PRINT 

1410  PR  I  NT  "THERE  ARE  ";B1;"  ENTRIES  WITH  MOLECULAR  WEIGHT  OF  ";BS<0,2> 
1415  IF  B1=0  THEN  1460 

1420  PRINT'WID  THESE  OCCUR  AT  THE  FOLLOWING  ENTRY  NUMBERS:" 

1430  FOR  1=1  TO  B1  STEP  7 

1440  PRINT  A(l ) ; A < I  : ,  );A(l+2);A(l+3);A(l+4);A(l+5);A(l+6) 

1450  NEXT  I 

1460  IF  A9  >  1  THEN  1515 
1465  PRINT 

1470  PR  I  NT  "THERE  ARE  ";B2;"  ENTRIES  WITH  BASE  PEAK  AT  ";B$(4,6> 

1475  IF  B2=0  THEN  1515 

1480  PR  I  NT  "AND  THESE  OCCUR  AT  THE  FOLLOWING  ENTRY  NUMBERS:" 

1490  FOR  1=1  TO  B2  STEP  7 

1500  PRINT  BID;  8d+)  );80+2);Bd+3);Bd+4);B(l+5);Bd+6) 

1510  NEXT  I 

1515  PR  I  NT  '©O  YOU  WISH  MORE  LISTINGS?  1=YES;2»N0"; 

1516  INPUT  Z 

1517  IF  Z=1  THEN  1030 
1520  PRINT 

1540  RETURN 

2000  IF  A1=1  THEN  2010 
2005  GO  SUB  5000 
2010  LET  G=B 
2020  LET  Cl  =Q2 
2025  LET  C2=B-1 

2050  PRINTTHIS  ENTRY  WILL  BE  MADE  AT  NIMBER";G; "PROCEED  AS  FOLLOWS:" 

2060  PRINT"FIRST '  THE  SPECTRUM  IS  ENTERED;  1=IN  M(ABS); 2=MANUALLY  BY  700" 

2110  INPUT  D1 

2130  IF  S  >  0  THEN  2150 

2140  GO  SUB  6100 

2150  FOR  J=0  TO  990  STEP  10 

2160  LET  N ( J )=N  ( J+l  )=N ( J+2)=N ( J+3 )=N ( J+4)=N( J+5)=0 

2170  LET  N(J+6)=N(J+7)=N(  J+8)*N(J+9)=0 

2180  NEXT  J 

2183  LET  N(1000)=0 

2185  LET  N(0)=G 

2190  PR  I  NT"I  S  THIS  SPECTRUM  El(=0)  OR  Cl  (=1 
2200  INPUT  N(3) 

2205  PR INT'MNPUT  THE  MOLECULAR  WT.  OF  THIS  COMPOUND"; 

2210  INPUT  N(1) 

2215  IF  D1  *2  THEN  2255 
2220  FOR  J=12  TO  999  STEP  1 
2230  LET  N(J)=M(J) 

2240  NEXT  J 
2250  GO  TO  2310 
2255  PRINT 

2260  PR  I  NT"  INPUT  M/E  AND  INTENSITY  FOR  EACH  ENTRY  ;0N  COMPLETION,  ENTER" 

2261  PR  I  NT "9999  FOR  M/E;CORRECTIONS  ARE  MADE  BY  REENTERING  CORRECTED" 

2262  PRINT"VERS!ON  AS  WELL  AS  A  ZERO  INTENSITY  FOR  Ml  STAKEN  M/E  IF" 

2263  FRINT'ERROR  EXISTED  IN  THE  M/E  PORTION  OF  ENTRY  (OTHER  THAN  M/E  OF" 
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2264  PR I NT "0-4  WHICH  ARE  ENT#,MW,BP,EI /Cl  AND  MOL.ION.M/E  INDICATORS" 

2285  INPUT  K,L 

2287  IF  K-0999  THEN  2310 

2290  LET  NIKK 

2300  GO  TO  2285 

2310  GO  SUB  6000 

2382  DWRIT£#1,D$,N 

2385  LET  S=1 

2386  LET  T=T+1 

2387  IF  T>  (C+1)  THEN  2410 

2392  FOR  J=0  TO  1000  STEP  1 

2393  CREAD  IT,N(J) 

2395  NEXT  J 

2397  GO  TO  2480 
2410  LET  C=C+1 
2415  PRINT 

2420  PRINT  "THE  RE  ARE  SUCCESSIVE  EI^TY  FILES;DO  YOU  WISH  TO  ADD  MORE" 
2430  PRINT  "FILES  AT  THIS  TII-E?  1=YES;2-N0»; 

2440  INPUT  03 

2450  IF  D3  >  1  THEN  2575 

2460  LET  G=G+1 

2470  GO  TO  2050 

2480  LET  C1=G+1 

2490  LET  C2=C 

2500  IF  A5  >  1  THEN  2560 

2510  LET  C2=A6 

2560  GO  SUB  6100 

2575  EOF  #1 

2580  PRINT 

2581  PR1NT"SEC0ND,THE  TITLES  OR  ALPHATEXT  ARE  REQUIRED;ENTER  THE  DATA" 

2582  PRINT"IN  THE  FaLOWING  MANNER. .XXXX  DATA  'TITLE ' •  .WHERE  TITLE  IS" 

2583  PR  I  NT"MOL.  WT.  (3), X, BASE  PK.  <3),X,C<2),H  (2)  ,BR(1  >,CL  (1  ),F  (1 >,  I  (1)," 

2584  PRINT"N(1).0(1),P(1),S(1),ME<1)tAND  32-67  FOR  NAKE  ETC.  AND  68-71" 

2585  PR  I  NT "FOR  CODE  DESIGNATION  ETC." 

2586  PR  I  NT  "THEN  TYPE  GO  TO  2588  FOLLOWING  BY  INPUT  OF  ";Q1;C;Q2 

2587  STOP 

2588  INPUT  Q1,C,Q2 

2589  LET  S=1 

2590  GO  TO  190 

3000  PR  I  NT  "INPUT  THE  ENTRY  NUMBER  OF  FILE  WHICH  IS  TO  BE  DELETED"; 

3010  INPUT  B3 

3070  GO  SUB  5000 

3071  LET  Cl  =02 
3075  LET  C2=B3-1 
3200  GO  SUB  6100 
3220  LET  T-B3+1 

3230  FOR  J»0  TO  1000  STEP  1 

3231  CREAD  #T,N(J) 

3232  NEXT  J 

3240  FOR  J«0  TO  990  STEP  10 

3241  LET  N<J)-N<J+1)-N<J+2)-N<J+3>-N(J+4)-N<J+5)-0 

3242  LET  N(J+6)-N< J+7)-N< J+8)-N(J+9>-0 

3243  NEXT  J 

3244  LET  N(1000X 

3245  DWRITE  #1,Df,N 
3250  LET  Cl -63+1 
3260  LET  C2-C 

3262  IF  A5  >  1  THEN  3270 
3264  LET  C2-A6 
3270  GO  SUB  6100 
3280  EOF  #1 

3291  PR  I  NT  "SECOND,  THE  ALPHATEXT  IS  DELETED  BY  TYPING  IN  THE  FOLLOWING:" 

3292  PRINT"XXXX  DATA'60  BLANKS. .. 'AND  THEN-GO  TO  3295-FOLLOWED  BY" 

3293  W I  NT"  INPUT  Of  THE  FOLLOWING  NUMBERS";<J1  ;C;Q2 

3294  STOP 
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3295  INPUT  <J1  ,C,Q2 
3297  LET  S=1 
3300  GO  TO  190 

4000  PR  I  NT"I  NPUT  SPECTRUM  NUMBERS  DESIRED  (2  NUMBERS  TO  DEFINE  RANGE)" 
4010  INPUT  B5,B8 

4020  PR  I  NT  "DO  YOU  WISH  ALPHA  TEXT?  1=YES;2=N0"; 

4030  INPUT  B6 

4040  PR  I  NT  "DO  YOU  WISH  SPECTRAL  DATA?  1=YES;2=N0"; 

4050  INPUT  B7 

4051  IF  B7  >  1  THEN  4062 

4052  IF  S  >  0  THEN  4062 

4053  GO  SUB  5000 

4054  LET  Cl =02 

4055  LET  C2=C 

4056  IF  A5  >  1  THEN  4058 

4057  LET  C2=A6 

4058  GO  SUB  6100 

4059  EOF  #1 

4060  LET  S=1 

4062  IF  B6  >  1  THEN  4101 
4065  IF  85=1  THEN  4101 
4070  FOR  I  =1  TO  B5-1  STEP  1 
4080  READ  AS 
4090  NEXT  I 

4101  FOR  1=85  TO  B8  STEP  1 

4102  IF  B6  >  1  THEN  4120 

4103  READ  AS 
4105  PRINT 

4 11 0  PR  I  NT"/";  I ;  "=  ";TAB  01);AS 
4115  LET  AS=" 

4120  IF  B7  >  1  THEN  4201 
4130  LET  G9=  I  -Q2+1 
4150  DREAD#1,G9,N 

4153  FOR  J=1 2  TO  N<4>  STEP  1 

4154  IF  N(J)=0  THEN  4157 

4155  LET  N < J  )=N ( J )  )/(100) 

4157  NEXT  J 

4165  PRINT 

4170  PR  I  NT  "THE  SPECTRUM  FOR  ENTRY  NO.  ";l;"  IS  GIVEN  BY:" 

4175  PRINT 

4180  FOR  J=1 2  TO  992  STEP  7 
4185  IF  J  >  N(4)  THEN  4201 

4190  PRINT  J;TAB(5);N(J);TAB(13);N<J+1  );TAB(23);N(J+2);TAB<31  );N(J+3>; 

4191  PRINT  TAB(39);N<  J+4);TAB(47)  ;N(  J+5)  ;TA8  (56)  ;N(  J+6) 

4200  NEXT  J 

4201  NEXT  I 
4205  RESTORE 

4210  PRINT5D0  YOU  WISH  FURTHER  OUTPUT  AT  THIS  TIME?  1=YES;2=N0"; 

4220  INPUT  D4 

4230  IF  D4  <  2  THEN  4000 

4340  RETURN 

5000  LET  BS-"  " 

5010  LET  ES-"000" 

5016  LET  03=01*100 
5020  FOR  I  =1  TO  03  STEP  1 
5025  READ  AS 

5030  IF  AS(0,2)  <>  ES  THEN  5050 

5035  LET  B=l 

5040  LET  C-l-1 

5045  GO  TO  5205 

5050  IF  AS(0,6)*B$  THEN  5140 

5060  NEXT  I 

5065  LET  B^)3+1 

5066  LET  C=Q3 

5080  PR  I  NT  "ALL";  03;  "NAME  DATA  SPACES  HAVE  BEEN  ALLOCATED  SO  REDEF  ’N" 
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5090  PRINT"WILL  BE  NECESSARY  IN  THE  ENTRY  t  STATEMENT  UNLESS  DELETION" 

5091  PRINT"IS  DESIRED" 

5100  PR  I  NT "THE  FIRST  ENPTY  SPACE  IS  GREATER  THAN  #";Q3 
5130  GO  TO  5205 
5140  LET  B=t 
5150  LET  C=l-1 

5160  FOR  J=(B+1 )  TO  03  STEP  1 
5170  READ  A$ 

5175  IF  AS(0,2)=£S  THEN  52(75 

5180  IF  A$<0,6>=8$  THEN  5200 

5190  LET  C=J 

5200  NEXT  J 

5205  RESTORE 

5210  RETURN 

6000  LET  H  =0 

6005  FOR  J=1 2  TO  999 

6007  IF  N(J)=0  THEN  6025 

6009  LET  N(4)=J 

6010  IF  N(J)<  =H  THEN  6025 
6015  LET  H=N ( J ) 

6020  LET  N (2)=J 
6025  NEXT.  J 

6035  PR  I  NT  "THE  BASE  PEAK  OCCURS  AT  ";N  (2);  "AND  HIGHEST  M/E  IS  AT";N(4> 
6050  FOR  1=12  TO  N(4) 

6060  LET  N(I)=((N(I))/(H))*10000 
6070  NEXT  I 
6080  RETURN 

6100  IF  C1>Q2  THEN  6109 

6101  FOR  I  =<2f  TO  990  STEP  10 

6102  LET  Nil  >=N(I+1  >=N( l+2)=N(l +3)=* <I+4)=N (l+5)*0 

6103  LET  N(l+6)=N(l+7)=N(l+8)=N(l+9)=0 

6104  NEXT  I 

6105  LET  D$="FI LE  OF  INDIVIDIRL  SPECTRA 

6106  DWRITE  #1,D$,N 
6109  IF  C2<C1  THEN  6220 
6H0  FOR  l=C1  TO  C2  STEP  1 
6111  LET  T=l+1 

6126  FOR  J  =0  TO  1000  STEP  1 

6127  CREAD  <T,N(J) 

6128  NEXT  J 

6130  DWRITE  #1,D$,N 
6140  NEXT  I 
6220  RETURN 

9994  DATA  "000  000" 

9995  PR  I  NT "THE  PROGRAM  IS  FINISHED  BUT  TRANSFER  FROM  MEMORY  TO  BASIC" 

9996  PR I NT  "TAPE  IS  NECESSARY:  THE  PROGRAM  MUST  BE  STORED  UNDER  A  NEW" 

9997  PRINTHAfC  TO  SAVE  CHANGES  IN  THE  ALPHA  TEXT" 

9998  STOP 

9999  END 
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VARIABLE  GLOSSARY  -  DTRDFN 

N(I)  A  one-dimensional  array  containing  ion  abundances  for 

m/e  of  12-999  of  a  mass  spectrum  and  other  special 
information  for  N(0)  -  N(ll)  and  N(1000). 

C,D  Variables  to  indicate  range  of  mass  spectral  entries  to 

be  transferred. 

E  Variable  to  indicate  entry  number  of  first  spectrum 

stored  in  the  disc  file. 

K  Variable  used  to  maintain  coorelation  between  entry 

numbers  and  disc  spectrum  numbers. 

T  Variable  used  for  storage  or  assignment  of  tape  file 

names. 


VARIABLE  INDEX  -  DTRDFN 
Variable 
N(I) 

C 

D 

E 

K 

T 


Statement  No. 
10,105,120 
81,100 
81,100 
90,103 
103,105 
110,120,130 
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5  REM  THIS  PROGRAM  READS  A  SPECTRAL  FILE  FROM  DISC  TO  TAPE 

10  DIM  N11001) 

11  PRINT  tNTER  THE  NAME  OF  THE  DATA  FILE  ON  THE  DISC" 

12  PRINT  "AS  FOLLOWS:  15  FILES  NAME" 

13  FRINT  "THEN  TYPE  'GO  TO  15'" 

14  STOP 

15  FILES  DISC00 

16  FILES  1 ,2,3,4,5,6,7,8,9,10, 1 1 , 12, 13,14, 15, 1 6, 17, 18,19,20,21,22,23,24 

17  FILES  25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45 

18  FILES  46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66 

19  FILES  67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87 

20  FILES  88,89,90,91,92,93,94,95,96,97,98,99,100 

80  PRINT"THE  ENTRY  LIMITS  OF  SPECTRA  TO  BE  TRANSFERRED  ARE"; 

81  INPUT  C,D 

85  PR  I  NT  "THE  ENTRY  NUMBER  OF  1ST  SPECTRUM  ON  FILE  IS"; 

90  INPUT  E 

100  FOR  l<  TOD  STEP  1 

103  LET  K»l-£+1 

105  DREAD  #1 ,K,N 

110  LET  T=l  +1 

115  FOR  J=0  T.)  1000  STEP  1 

120  CWRITE  #T,N(J) 

125  NEXT  J 
130  EOF  AT 
1 35  NEXT  I 

140  PR  I  NT  "THE  OPERATION  IS  COMPLETE" 

145  STOP 
1 50  END 
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VARIABLE  GLOSSARY  -  DISCFL 

A$ (I)  -  A  one-dimensional  array  for  storage  of  title 

information  of  the  disc  files. 

N(I)  -  A  one-dimensional  array  containing  ion  abundances  for 

m/e  of  12-999  of  a  mass  spectrum  and  other  special 
information  for  N(0)-N(9)  and  N(1000). 

A  -  Variable  to  indicate  number  of  source  disc  files  to 

be  merged  into  one  composite  file. 

B  -  Variable  to  Indicate  the  first  spectrum  to  be  read 

from  a  particular  disc  file*. 

C  -  Variable  to  indicate  the  last  spectrum  to  be  read 

from  a  particular  disc  file*. 

M  -  Variable  to  identify  disc  file  to  be  read. 


VARIABLE  INDEX  -  DISCFL 


Variable 
A$  (I) 
N(I) 

A 

B 

C 

H 


Statement  No. 

10.70.80.170 

10.30.40.60.80.160.170 

100,110 

140,150 

140,150 

120,160 


*  Every  disc  file  will  have  spectra  starting  at  position  or  scan  #1 
even  if  the  spectrum  is  entry  0201. 
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APPENDIX  I 

PROGRAM  LISTING  -  DISCFL 

4  REM  THIS  PRO® AM  CAN  MERGE  SEVERAL  DISC  FILES  INTO  ONE  CONSECUTIVE 

5  REM  FILE  ON  DISC 

6  PRINT"FILES  STATEMENTS  FOR  DISC  FILES  MUST  BE  ENTERED  AS--15  FILES"; 

7  PRINT  DISC" 

8  PR  INT"16  FILES  0 ISC01  ,D I SC02,D I SC03,ETC  FOR  SOURCE  FILES,  THEN  TYPE-"; 

9  PR  I  NT "GO  TO  I5-" 

10  DIM  N<1<MM>,A$<48) 

11  STOP 

15  FILES  MASW0 

16  FILES  OATA10,MT<W02,DATA25 

20  FOR  I =0  TO  990  STEP  10 

30  LET  N(l)=N<l+1)=N<l+2)*N<l+3)*N<l+4)-N(l+5>^(l+6>»N<l+7>-N<l+8)-0 

40  LET  N(l+9)=0 

50  NEXT  I 

60  LET  N(100Q f)=« 

70  LET  A$="FILE  OF  INDIVIDUAL  SPECTRA" 

80  DWRITE  #1 ,A$,N 

90  PRINTTHE  NIMBER  OF  OISC  FILES  TO  BE  READ  ARE"; 

100  INPUT  A 

110  FOR  1*1  TO  A  STEP  1 

120  LET  M=l +1 

130  PRINTTHE  SPECTRA  TO  BE  TRANSFERRED  IN  FILE  /"; I ; "ARE "; 

140  INPUT  B.C 

150  FOR  J=B  TO  C  STEP  1 

160  DREAD  #M,J,N 

170  DWRITE  #1,A$,N 

180  NEXT  J 

190  PRINT-DISC  FILE  #";I;DAS  BEEN  COPIED" 

200  NEXT  I 

210  EOF  #1 

220  STOP 

230  END 


UNCLASSIFIED 


FLOW  CHART  -  DISCFL 


Operation 


RUN 


ENTER 
NAMES  OF 
DISC  FILES 


SET  ARRAY 
K  10  EERO 
SET  A  $  = 
DTSC  I  TLE 

NAME 


WRITE  MASS 
SPECTRUM  ON | 
DISC 


INDICATE  NUMBER | 
(A)  OF  SOURCE 
DISC  FILES 

: _ a 


SET  I  »  I 


SET  M  =  I  a  I 

♦  i 


INDICATE 

INUMBER  OF  SPECTR4 
1  TO  BE  READ(B,C) 


Statement 


2-11 


15-19 


20-70 


80 


90- 100 


I  10 


I  20 


I  30-140 


i  -  l 


Operation 

X 


READ  MASS 
SPECTRUM 
FROM 
DISC 


WRITE  MASS 
SPECTRUM  ON/ 
DISC 


X  «  J  +  1 


PRINT  THAT 
DISC  FILE  I  HAS | 
BEEN  COPIED 


Statement 


150 


160 


170 


180 


190 


200 


210 


230 
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APPENDIX  IV 


VARIABLE  GLOSSARY  -  TRANTD 


A$ (I)  -  A  one-dimensional  array  for  storage  of  title 

information  of  the  disc  file. 

N(I)  -  (as  in  Appendix  III) 

P  -  Variable  to  indicate  entry  number  of  first  mass 

spectrum  to  be  transferred. 

R  -  Variable  to  indicate  entry  number  of  last  mass 

spectrum  to  be  transferred. 

T  -  Variable  to  identify  tape  file  to  be  read. 


VARIABLE  INDEX  -  TRANTD 

Variable  Statement  No. 

A$(I)  -  100,108,109,122 

Nil)  -  100,104,105,107,109,120,122 

P  -  111,117 

R  -  116,117 

T  -  118,120 
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PROGRAM  LISTING  -  TRANTD 

4  REM  THIS  PROGRAM  CAN  TRANSFER  SPECTRAL  FILES  FROM  TAPE  TO  A  SINGLE 

5  REM  FILE  ON  DISC 

6  PRINTTILES  STATEMENTS  FOR  ALL  SPECTRAL  FILES  MUST  BE  ENTERED  THUS" 

7  PRINT"I5  FILES  DISC-FOR  DISC  FILE;  16  FILES  1 ,2,3, . .  .ETC.  FOR  TAPE" 

8  PR  I  NT  "THEN  INSERT  SPECTRAL  Ttf’E  AM)  TYPE  'GO  TO  15'" 

9  STOP 

15  FILES  DISC01 

16  FILES  1,2,3,4,5,6,7,8,9,101,11,12,13,14,15,16,17,18,19,201,21,22,23,24 

17  FILES  25,26, 27, 28,29, 3«,31, 32,33,34, 35, 36, 37, 38,39, 401,41, 42,43, 44,45 

18  FILES  46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66 

19  FILES  67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87 

20  FILES  88,89,90,91, 92, 93,94, 95, 96, 97, 9P, 99, 100, 101, 102, 103, 104, 105, 106 
100  DIM  N<1001  ),A$<48> 

103  FOR  1=0  TO  990  STEP  10 

104  LET  Nil  >=N<I+1  )=N<l+2)=N(l+3)=N(l+4)*#<l+5)*N<l+6)»N<l+7>-0 

105  LET  N(l-F8)=N(l+9)«0 

106  NEXT  I 

107  LET  N(1OW)=0 

108  LET  A$»"FILE  OF  INDIVIDUAL  SPECTRA" 

109  DWRITE  #1  ,A$,N 

110  PR INT"I NPUT  ENTRY  t  FOR  FIRST  MS  TO  BE  TRANSFERRED"; 

111  INPUT  P 

115  PR  I  NT  "I  NPUT  ENTRY  I  OF  LAST  MS  TO  BE  TRANSFERRED"; 

116  INPUT  R 

1 17  FOR  J«P  TO  R  STEP  1 

118  LET  T-J+1 

119  FOR  1-0  TO  10*00  STEP  1 

120  CREAD  #T,N( I ) 

121  NEXT  I 

122  DMRITE  #1 ,AS,N 
130  NEXT  J 

200  EOF  #1 

210  mi  NT  "THE  OPERATION  IS  COMPLETE" 

220  STOP 
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Operation 
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119-121 


122 


130 


200 


210 


230 
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